# load packages

pacman::p_load(tidyverse)

### table A.7 (pool types) ----

# load data
pools <- read_rds("data/pool_types.rds")

table(pools$type)

# clean
rm(list = ls())